00008 Y=0
00010	 C=0
00018 PRINT "PRINCIPAL"
00019	INPUT P
00020 PRINT "# OF PERIODS"
00021 INPUT L
00030 PRINT "INTEREST RATE";
00031 INPUT R
00040	 I=R/12
00045	I=I/100
00050	 T=1
00055	FOR X=1 TO L
00060	 T=T*(1+I)
00065	NEXT X
00067	T=1/T
00070	 T=1-T
00080	 M=P*I/T
00090	 M=INT(M*100+.5)/100
00100	 GOSUB 230
00110	 FOR Z=1 TO L
00120	 IF C<13 GOTO140
00130 PRINT "PRESS RETURN TO CONTINUE"
00131 INPUT A$
00135	C=0
00137	GOSUB 230
00140	 A=(INT(P*I*100+.5))/100
00150	 B=M-A
00155	 P=P-B
00160	 PRINT Z;
00170	 PRINT TAB(10) P;
00180	 PRINT TAB(20) M;
00190	 PRINT TAB(30) B;
00200	 PRINT TAB(40) A
00202 Y=Y+A
00210	 C=C+1
00215	NEXT Z
00220 GOTO260
00230 Z=0
00235	PRINT "PAYMENT REMAINING   MONTHLY   PRINCIPAL  INTEREST"
00240	 PRINT "NUMBER  PRINCIPAL   PAYMENT    PAYMENT   PAYMENT"
00250	 RETURN
00260 PRINT "TOTAL INTEREST = ";Y
00270 END